home *** CD-ROM | disk | FTP | other *** search
/ Commodore Free 33R1 / Commodore_Free_Issue_33R1_2009_Commodore_Computer_Club.d64 / tc list < prev    next >
Text File  |  2023-02-26  |  2KB  |  81 lines
  1. .
  2. Listing of: TallyCounter.prg
  3.  
  4. 10 REM *TALLY COUNTER*
  5. 20 SCNCLR:PRINT"{SHIFT-+}black{SHIFT--} TALLY COUNTER"
  6. 30 D%=3
  7. 35 PRINT"TYPE A NUMBER":PRINT" (BELOW
  8. 1 FOR INSTRUCTIONS)"
  9. 36 PRINT"NO HIGHER THAN 9"
  10. 40 INPUT"HOW MANY THINGS TO MARK";D%
  11. 45 IFD%<1THEN300
  12. 50 IFD%>9THENPRINT"NOT ENOUGH
  13. MEMORY":GOTO40
  14. 60 D1%=48+D% :REM *CHR$ CODE*
  15. 70 FORJ=1TOD%:IT%(J)=0
  16. 80 INPUT"NAME OF ITEM";IT$(J)
  17. 90
  18. PRINT:PRINT"{SHIFT-+}orange{SHIFT--}";IT$(J);"{SHIFT-+}black{SHIFT--}
  19. IS THIS CORRECT Y/N?"
  20. 100 GETA$:IFA$=""THEN100
  21. 110 IFA$="N"THEN80
  22. 120 NEXT J
  23. 130 REM *SET TALLY NUMBER*
  24. 140 SCNCLR:PRINT" TALLY
  25. COUNTER":PRINT:PRINT
  26. 143 PRINT" X TO END":PRINT" (SPACE)
  27. TOGGLE ADD / DELETE":PRINT:PRINT
  28. 145 IFX>1THENX=0
  29. 150 FORJ=1TOD%
  30. 160 PRINT"PRESS ";J;" = ";IT$(J)"
  31. ";IT%(J)
  32. 170 NEXT J
  33. 180 IFX=0THENPRINT"{SHIFT-+}down{SHIFT--}{SHIFT-+}down{SHIFT--} ADD";
  34. 185 IFX=1THENPRINT"{SHIFT-+}down{SHIFT--}{SHIFT-+}down{SHIFT--}
  35. DELETE";
  36. 190 GETA$:IFA$=""THEN190
  37. 200 IFA$="X" THENEND
  38. 210 IFA$=" " THENX=X+1:GOTO140
  39. 215 IFA$< CHR$(49) ORA$>CHR$(D1%)
  40. THEN190
  41. 220 A%=VAL(A$)
  42. 230 IFX=0THEN IT%(A%)=IT%(A%)+1
  43. 235 IFX=1THEN IT%(A%)=IT%(A%)-1
  44. 240 GOTO140
  45. 300 REM *INSTRUCTIONS*
  46. 310 SCNCLR:PRINT" TALLY COUNTER"
  47. 320 PRINT:PRINT"INSTRUCTIONS":PRINT
  48. 330 PRINT"DESIGNED TO REPLACE OR
  49. REDUCE THE NEED FOR PEN & PAPER"
  50. 340 PRINT" A LINE DOWN REPRESENTED 1
  51. IN A TALLY MARK."
  52. 350 PRINT" AFTER FOUR 1S 1111. A LINE
  53. WAS PUT"
  54. 360 PRINT"THROUGH THE GROUP
  55. REPRESENTING 5."
  56. 370 PRINT"AND THE 1 COUNTS WERE
  57. STARTED AGAIN"
  58. 380 PRINT"NEXT TO THE STRUCK 5. AND
  59. SO THE"
  60. 390 PRINT"PROCESS CONTINUED.":PRINT
  61. 400 PRINT"IN YAPE YOU CAN SAVE WHERE
  62. YOU ARE AT"
  63. 410 PRINT"ANY POINT.":PRINT" JUST GO
  64. TO FILE, "
  65. 420 PRINT" EMULATOR
  66. SNAPSHOT.":PRINT"A SUB-MENU WILL
  67. APPEAR AND YOU ARE "
  68. 430 PRINT"GIVEN THE CHOICE OF A
  69. QUICKSAVE, OR OF"
  70. 440 PRINT"GIVING YOUR FILE A NAME OF
  71. YOUR OWN "
  72. 450 PRINT"CHOOSING.";:PRINT" TO
  73. RETURN TO LATER WITH THE SAME "
  74. 460 PRINT"MENU & PROCESS -USING
  75. LOAD..."
  76. 470 PRINT" ";CHR$(18);" ANY KEY
  77. ";CHR$(146);"{SHIFT-+}up{SHIFT--}{SHIFT-+}up{SHIFT--}"
  78. 480 GETA$:IFA$=""THEN480
  79. 490 GOTO10
  80.  
  81. =====================================